On *:Load: {
  set %bx 0,1{11{15{
  set %by }11}0}
  set %added ...
  set %addlen 3
  set %Spinning No
  set %bottle Off
  echo $Active %bx Hello, and thank you for using Spin the Bottle 5 by riht_2!  Please start by making sure you have some commands and setting put onto me before you turn on your bot and use this!  And make sure you don't have any scripts for /describe or /notice! %by
  echo $Active %bx Once you set me up, you will learn to enjoy me, of course it may be hard to set me up! :D!  There are even more updates since the older versions.  I may add a setting for your own borders, but for now, it's just the ones on here.  Feel free to reuqest new ones. %by
  echo $Active %bx We will now scan to see if you have the latest version of mIRC... %by
  if ($Version < 6.2) {
    unload $script
    echo $Active Goto www.mIRC.com to get the latest version of mIRC to use this script!
  }
  if ($Version >= 6.2) {
    .timer.yes 1 3 echo $Active %bx You may use this script! %by
  }
}
On *:Unload: {
  echo $Active %ax ;_; Thank you for using me.. %ay
  unset %bx
  unset %by
  unset %ax
  unset %ay
  unset %nx
  unset %ny
  unset %lander
  unset %bottle-on-chan
  unset %Bottle
  unset %spinning
  unset %command
}
On *:Join:%Bottle-on-chan: {
  .notice $Nick %bx Welcome to $Chan $+ !  I am $Me $+ !  The script I am running on was designed by riht_2!  You can find this script on www.hawkee.com! Commands are: !Spin <text> %by
}
Menu Channel { 
  -  
  Spin the bottle Themes 
  .Spin The Bottle
  ..Colors
  ...Color One
  ....Red: set %bx 7,1!4!5!0 | set %by 5!4!7! | echo $Active The border1 is now: %bx $me %by
  ....Blue: set %bx 0,1<11<12<2<0 | set %by 2>12>11>0> | echo $Active The border1 is now: %bx $me %by
  ....Silver: set %bx 0,1(15(14(0 | set %by 14)15)0) | echo $Active The border1 is now: %bx $me %by
  ....Yellow: set %bx 8,1{7{5{0 | set %by 5}7}8} | echo $Active The border1 is now: %bx $me %by
  ....Green: set %bx 0,1/15/9/3/0 | set %by 3\9\15\0\ | echo $Active The border1 is now: %bx $me %by
  ....Violet: set %bx 0,1#13#6#0 | set %by 6#13#0# | echo $Active The border1 is now: %bx $me %by
  ....Random: set %bx  $+ $Rand(2,14) $+ ,1: $+ $Rand(2,14) $+ : $+ $Rand(2,14) $+ :0 | set %by  $+ $Rand(2,14) $+ ,1: $+ $Rand(2,14) $+ : $+ $Rand(2,14) $+ : | echo $Active The border1 is now: %bx $me %by
  ...Color Two
  ....Red: set %nx 4,1[7[8[0 | set %ny 8]7]4] | echo $Active The border2 is now: %nx <text> %ny
  ....Blue: set %nx 11,1~12~2~0 | set %ny 2~12~11~ | echo $Active The border2 is now: %nx <text> %ny
  ....Silver: set %nx 14,1.15.0. | set %ny .15.14. | echo $Active The border2 is now: %nx <text> %ny
  ....Yellow: set %nx 8,1{7{5{0 | set %ny 5}7}8} | echo $Active The border2 is now: %nx <text> %ny
  ....Green: set %nx 0,1=9=3=0 | set %ny 3=9=0= | echo $Active The border2 is now: %nx <text> %ny
  ....Violet: set %nx 6,1T13N0T | set %ny T13N6T | echo $Active The border2 is now: %nx <text> %ny
  ....Random: set %nx  $+ $Rand(2,14) $+ ,1: $+ $Rand(2,14) $+ : $+ $Rand(2,14) $+ :0 | set %ny  $+ $Rand(2,14) $+ ,1: $+ $Rand(2,14) $+ : $+ $Rand(2,14) $+ : | echo $Active The border2 is now: %nx <text> %ny
  ...Color Three
  ....Red: set %ax 7,1@4@5@*0,1 | set %ay 7,1*5@4@7@ | echo $Active The border3 is now: %ax $Me does something %ay
  ....Blue: set %ax 11,1_12-2|*0 | set %ay 2*|12-11,1_ | echo $Active The border3 is now: %ax $Me does something %ay
  ....Silver: set %ax 14,1(15(0( | set %ay )15)14) | echo $Active The border3 is now: %ax $Me does something %ay
  ....Yellow: set %ax 8,1+7+5+0 | set %ay 5+7+8+ | echo $Active The border3 is now: %ax $Me does something %ay
  ....Green: set %ax 8,1*9*3*10*0 | set %ay 10*3*9*8* | echo $Active The border3 is now: %ax $Me does something %ay
  ....Violet: set %ax 0,15"13,14"6,1"0 | set %ay 6,1"13,14"0,15" | echo $Active The border3 is now: %ax $Me does something %ay
  ....Random: set %ax  $+ $Rand(2,14) $+ ,1: $+ $Rand(2,14) $+ : $+ $Rand(2,14) $+ :0 | set %ay  $+ $Rand(2,14) $+ ,1: $+ $Rand(2,14) $+ : $+ $Rand(2,14) $+ : | echo $Active The border3 is now: %ax $Me does something %ay
  ...UpDates
  ....Version 4
  .....V4-Cyan { set %ax 11%15%0,15%11,15%0,11%15%0,10%11%15 | set %bx 11%15%0,15%11,15%0,11%15%0,10%11%15 | set %nx 11%15%0,15%11,15%0,11%15%0,10%11%15 | set %ay 11%0%15,11%0%11,15%0,15%15,0%11% | set %by 11%0%15,11%0%11,15%0,15%15,0%11% | set %ny 11%0%15,11%0%11,15%0,15%15,0%11% | echo # All borders are now set to %nx and %ny }
  .....V4-Green { set %ax 150,15915,9315,39,315,19314 | set %bx 150,15915,9315,39,315,19314 | set %nx 150,15915,9315,39,315,19314 | set %ay 39159,3153,9159,15015,0 | set %by 39159,3153,9159,15015,0 | set %ny 39159,3153,9159,15015,0 | echo # All borders are now set to %nx and %ny }
  .....V4-Orange { set %ax 80,1580,787,454,55,10 | set %bx 80,1580,787,454,55,10 | set %nx 80,1580,787,454,55,10 | set %ay 54,55,478,708,1508,0 | set %by 54,55,478,708,1508,0 | set %ny 54,55,478,708,1508,0 | echo # All borders are now set to %nx and %ny }
  .....V4-Silver { set %ax 15)0,15)14)0,14)15)0,1)15)14) | set %bx 15)0,15)14)0,14)15)0,1)15)14) | set %nx 15)0,15)14)0,14)15)0,1)15)14) | set %ay (15(0(15,14(0,14(14,1514(0(15,0( | set %by (15(0(15,14(0,14(14,1514(0(15,0( | set %ny (15(0(15,14(0,14(14,1514(0(15,0( | echo # All borders are now set to %nx and %ny }
  .....V4-Pink { set %ax 15$13,15$6$15,13$6$15,6$13$13,1$6$0 | set %bx 15$13,15$6$15,13$6$15,6$13$13,1$6$0 | set %nx 15$13,15$6$15,13$6$15,6$13$13,1$6$0 | set %ay 6$13$13,6$15$6,13$15$6,0$13$15$ | set %by 6$13$13,6$15$6,13$15$6,0$13$15$ | set %ny 6$13$13,6$15$6,13$15$6,0$13$15$ | echo # All borders are now set to %nx and %ny }
  .....V4-Blue { set %ax 11[{0,11[{12,11[{11,12[{2[{11,2[{12[{12,1[{2[{0 | set %bx 11[{0,11[{12,11[{11,12[{2[{11,2[{12[{12,1[{2[{0 | set %nx 11[{0,11[{12,11[{11,12[{2[{11,2[{12[{12,1[{2[{0 | set %ay 2}]12}]12,2}]11}]2,12}]11}]12,11}]0}]11,0}] | set %by 2}]12}]12,2}]11}]2,12}]11}]12,11}]0}]11,0}] | set %ny 2}]12}]12,2}]11}]2,12}]11}]12,11}]0}]11,0}] | echo # All borders are now set to %nx and %ny }
  ..For the Hell of it?
  ...Spin Label
  ....Pokmon { set %ax 4,12[8Pokmon0]12,15 | set %bx 4,12[8Pokmon0]12,15 | set %nx 4,12[8Pokmon0]12,15 | set %ay 0,12[8,12Pokmon4] | set %by 0,12[8,12Pokmon4] | set %ny 0,12[8,12Pokmon4] | echo $Active All borders are now set to %nx and %ny }
  ....Shuttle { set %ax 15,1(14[4.0Spin.ini14]15)14=15(14[9,1 | set %bx 15,1(14[4.0Spin.ini14]15)14=15(14[9,1 | set %nx 15,1(14[4.0Spin.ini14]15)14=15(14[9,1 | set %ay 9,1 14]15) | set %by 9,1 14]15) | set %ny 9,1 14]15) | echo # All borders are now set to %nx and %ny }
  ....Rickety { set %ax 915(14[12,10Spin14,0]15X14[10 | set %bx 915(14[12,10Spin14,0]15X14[10 | set %nx 915(14[12,10Spin14,0]15X14[10 | set %ay 14]15X14[7) | set %by 14]15X14[7) | set %ny 14]15X14[7) | echo # All borders are now set to %nx and %ny }
  ....Splitten { set %ax 4[14Sp4/14litt4/14in4]14[15 | set %bx 4[14Sp4/14litt4/14in4]14[15 | set %nx 4[14Sp4/14litt4/14in4]14[15 | set %ay 4] | set %by 4] | set %ny 4] | echo # All borders are now set to %nx and %ny }
  ....Magi-calc { set %ax 8,15=7,144,1Spin7,148,15=3,9 1 + 1 = | set %bx 8,15=7,144,1Spin7,148,15=3,9 1 + 1 = | set %nx 8,15=7,144,1Spin7,148,15=3,9 1 + 1 = | set %ay 8,15]7,14]4,1] | set %by 8,15]7,14]4,1] | set %ny 8,15]7,14]4,1] | echo # All borders are now set to %nx and %ny }
  ....Chains { set %ax 151415{7Spin15}141514-15[2 | set %bx 151415{7Spin15}141514-15[2 | set %nx 151415{7Spin15}141514-15[2 | set %ay 141514] | set %by 141514] | set %ny 141514] | echo # All borders are now set to %nx and %ny }
  ....Frationz { set %ax 8745[10 Spin 5]4786 | set %bx 8745[10 Spin 5]4786 | set %nx 8745[10 Spin 5]4786 | set %ay 478 | set %by 478 | set %ny 478 | echo # All borders are now set to %nx and %ny }
  ...No Spin Label  
  ....From my FMSG script { set %ax 8,0%7,15%4,14%5,1%0 | set %bx 8,0%7,15%4,14%5,1%0 | set %nx 8,0%7,15%4,14%5,1%0 | set %ay 5%4,14%7,15%8,0% | set %by 5%4,14%7,15%8,0% | set %ny 5%4,14%7,15%8,0% | echo # All borders are now set to %nx and %ny }
  ....Looks like Ghalereon { set %ax 4,1[0 | set %bx 4,1[0 | set %nx 4,1[0 | set %ay 4] | set %by 4] | set %ny 4] | echo # All borders are now set to %nx and %ny }
  ....Omfg, Kirby { set %ax 13(6>1''13)6>15,14 | set %bx 13(6>1''13)6>15,14 | set %nx 13(6>1''13)6>15,14 | set %ay 6,0<13(1''6<13) | set %by 6,0<13(1''6<13) | set %ny 6,0<13(1''6<13) | echo # All borders are now set to %nx and %ny }
  ....Flyte { set %ax 0,1.1112119 | set %bx 0,1.1112119 | set %nx 0,1.1112119 | set %ay 1112110. | set %by 1112110. | set %ny 1112110. | echo $Active All borders are now set to %nx and %ny }
  ....Crossz { set %ax 88,118,128,2 | set %bx 88,118,128,2 | set %nx 88,118,128,2 | set %ay 8,128,118,0 | set %by 8,128,118,0 | set %ny 8,128,118,0 | echo $Active All borders are now set to %nx and %ny }
  ....Morrowind { set %ax 1,5\7\/1/8 | set %bx 1,5\7\/1/8 | set %nx 1,5\7\/1/8 | set %ay 1\7\/1/ | set %by 1\7\/1/ | set %ny 1\7\/1/ | echo $Active All borders are now set to %nx and %ny }
  ....FFBot { set %ax 7-12(15:12)7-14 | set %bx 7-12(15:12)7-14 | set %nx 7-12(15:12)7-14 | set %ay 7,0-12(15:12)7- | set %by 7,0-12(15:12)7- | set %ny 7,0-12(15:12)7- | echo $Active All borders are now set to %nx and %ny }
  ...New Crap
  ....Swing S { set %ax ڵ4 ڪpin ڵ5 | set %bx ڵ4 ڪpin ڵ5 | set %nx ڵ4 ڪpin ڵ5 | set %ay 4ګ | set %by 4ګ | set %ny 4ګ | echo $Active All borders are now set to %nx and %ny }
  ....Gong { set %ax 8,14 ۞ 4Spin8 ۞12 | set %bx 8,14 ۞ 4Spin8 ۞12 | set %nx 8,14 ۞ 4Spin8 ۞12 | set %ay 8 ۞ | set %by 8 ۞ | set %ny 8 ۞ | echo $Active All borders are now set to %nx and %ny }
  ....Black and Red diamondz { set %ax ۰4۰۰4۰ Spin 1۰4۰1۰4۰12 | set %bx ۰4۰۰4۰ Spin 1۰4۰1۰4۰12 | set %nx ۰4۰۰4۰ Spin 1۰4۰1۰4۰12 | set %ay 1۰4۰1۰4۰ | set %by 1۰4۰1۰4۰ | set %ny 1۰4۰1۰4۰ | echo $Active All borders are now set to %nx and %ny }
  ..Requested
  ...ZZZ's requests
  ....ZZZ(Request1(Red) { set %ax 4,1|4,5|4,1|5,4|4,5|4,1 | set %bx 4,1|4,5|4,1|5,4|4,5|4,1 | set %nx 4,1|4,5|4,1|5,4|4,5|4,1 | set %ay 5,1|4,5|5,1|4,1|5,4| | set %by 5,1|4,5|5,1|4,1|5,4| | set %ny 5,1|4,5|5,1|4,1|5,4| | echo $Active All borders are now set to %nx and %ny }
  ....ZZZ(Request2(Silver) { set %ax 15,0|0,15|14|15,14|1|8,1 | set %bx 15,0|0,15|14|15,14|1|8,1 | set %nx 15,0|0,15|14|15,14|1|8,1 | set %ay 1,14|15|14,15|0|15,0| | set %by 1,14|15|14,15|0|15,0| | set %ny 1,14|15|14,15|0|15,0| | echo $Active All borders are now set to %nx and %ny }
  ....ZZZ(Request3(Green) { set %ax 9,0|0,9|3|9,3|10|11,10 | set %bx 9,0|0,9|3|9,3|10|11,10 | set %nx 9,0|0,9|3|9,3|10|11,10 | set %ay 10,3|9|3,9|0|9,0| | set %by 10,3|9|3,9|0|9,0| | set %ny 10,3|9|3,9|0|9,0| | echo $Active All borders are now set to %nx and %ny }
  ....ZZZ(Request4(Pink) { set %ax 13,0|0,13|6|13,6|5|4 | set %bx 13,0|0,13|6|13,6|5|4 | set %nx 13,0|0,13|6|13,6|5|4 | set %ay 5|13|6,13|0|13,0| | set %by 5|13|6,13|0|13,0| | set %ny 5|13|6,13|0|13,0| | Echo $Active All borders are now set to %nx and %ny }
  ....ZZZ(Request5(Orange) { set %ax 8,0|0,8|7|8,7|4|8,4 | set %bx 8,0|0,8|7|8,7|4|8,4 | set %nx 8,0|0,8|7|8,7|4|8,4  | set %ay 4,7|8|7,8|0|8,0| | set %by 4,7|8|7,8|0|8,0| | set %ny 4,7|8|7,8|0|8,0| | Echo $Active All borders are now set to %nx and %ny }
  ....ZZZ(Blood 'n Stone?) { set %ax 4,114,1 | set %bx 4,114,1 | set %nx 4,114,1 | set %ay 4,114,1 | set %by 4,114,1 | set %ny 4,114,1 |  echo # All borders are now set to %nx and %ny }
  ....ZZZ(Aero?) { set %ax 0,19,14 | set %bx 0,19,14 | set %nx 0,19,14 | set %ay 0,19,1 | set %by 0,19,1 | set %ny 0,19,1 | echo # All borders are now set to %nx and %ny }
  ....ZZZ(Looks emoish) { set %ax 0,1201c4201c0 | set %bx 0,1201c4201c0 | set %nx 0,1201c4201c0 | set %ay 4,1201c0,1201c | set %by 4,1201c0,1201c | set %ny 4,1201c0,1201c |  echo # All borders are now set to %nx and %ny }
  ....ZZZ(Acid?) { set %ax 8,111,114 | set %bx 8,111,114 | set %nx 8,111,114 | set %ay 8,111,1 | set %by 8,111,1 | set %ny 8,111,1 | echo # All borders are now set to %nx and %ny }
  ....ZZZ(Aura) { set %ax 1115912 | set %bx 1115912 | set %nx 1115912 | set %ay 91511 | set %by 91511 | set %ny 91511 | echo # All borders are now set to %nx and %ny }
  ....ZZZ(Skyflake) { set %ax 0,11114 | set %bx 0,11114 | set %nx 0,11114 | set %ay 011 | set %by 011 | set %ny 011 | echo # All borders are now set to %nx and %ny }
  ....ZZZ(Egyption) { set %ax 4,097 | set %bx 4,097 | set %nx 4,097 | set %ay 4,09 | set %by | set %ny 4,09 | echo # All borders are now set to %nx and %ny }
  On/Off
  . Bottle On: {
    if (%Bottle != On) {
      set %Bottle-On-Chan $Chan | notice %bottle-On-Chan %nx Spin the bottle is now on! %ny | Set %Bottle On | set %Spinning No | set %lander $nick($chan,$rand(1,$nick($chan,0,a)),a)
    }
    else echo %ax You need to disable the script in %bottle-On-Chan first do to that! %ay | haltdef
  }
  ..Bottle Off: {
    if ($Chan = %Bottle-On-Chan) { .timer.unset 1 2 unset %Bottle-On-Chan | notice %bottle-on-chan %nx Spin the bottle is sadly off.. ;-; %ny | set %Bottle Off | set %spinning No }
    if ($Chan != %Bottle-On-Chan) && (%Bottle-On-Chan != $Null) { echo $Me %bx You need to be in the channel this script was enabled to use this.. or you can type /bstop to disable it without joining the channel %by }
    if (%Bottle-On-Chan = $Null) { echo $Me %bx This script is not set! %by }
  }
  ..Bstop: { bstop }
  Command List
  .Add bottle action: {
    set %Added $Strip( $$? )
    set %Addlen $Len( %Added )
    if ($Chr(36) !isin %Added) && (%Added != $Null) { write bottle.txt %added
      echo $Active %bx %Added <- This has been added to the spin the bottle and can only be removed if you open the file! %by
    }
    elseif ($Chr(36) isin %added) echo $Active %nx Invalad messege! (Cannot use the $Chr(36) symbol!) %ny
    else echo $Active %nx Invalad messege! (Nothing typed in!) %Ny
  }
  .Open bottle msgs: {
    echo $Active %ax Opening up Bottle.txt! %ay
    .timer.1 1 2 run "bottle.txt" "wordpad.exe"
  }
}
Alias bstop {
  if (%bottle = On) {
    set %Response $?!="Do you wish to turn the script off?"
    if (%Response = $True) {  echo $Active %nx The script is now set off %ny | unset %Bottle-On-Chan | set %Bottle Off | set %spinning No }
    elseif (%Response = $False) { echo $Active %nx Script was not turned off! %ny }
  }
  else {
    echo $Active %bx The script is not on! %by
  }
}
On *:Text:!Spin*:%Bottle-On-Chan: {
  if (%Spinning = Yes) {
    .notice $Nick %ax Sorry, someone else is spinning right now! %ay
    return
  }
  if ($Chr(36) isin $1-) {
    .notice $Nick %nx Sorry, that is an invalad symbol, to spin please remove it! %ny
    return
  }
  if ($Chr(37) isin $1-) {
    .notice $Nick %nx Sorry, that is an invalad symbol, to spin please remove it! %ny
    return
  }
  if (Guest isin $Nick) {
    .notice $Nick %nx Change your nick ( $Nick ) to use this script!  I think Guests are gay fags with no lives what-so-ever~!  Nah, just srsly, change the nick.. D: %ny
    return
  }
  if (%Spinning = No) && ($Chan = %Bottle-On-Chan) && (%Bottle = On) {
    if ($exists($mircdir $+ bottle.txt) = $True) {  
      set %Spinning Yes
      set %command $Read(bottle.txt)
      if ($2 != $Null) .timer.1 1 1 msg $Chan %bx $Nick is spinning the bottle saying, " $+ $Strip($2-) $+ " %by 
      if ($2 = $Null) .timer.1 1 1 msg $Chan %bx $Nick is spinning the bottle %by 
      .timer.2 1 3 msg $Chan %ax The bottle spins yelling in a funny voice: "Wheee!!" %ay
      .timer.3 1 4 set %Lander $nick($chan,$rand(1,$nick($chan,0,a)),a)
      if (Guest isin %Lander) { .notice %Bottle-on-chan %nx Force ( %Lander ) to change their name or have them gtfo! *Stops the script in a few seconds* %ny | set %spinning No | return }
      if (%Lander != $Nick) { .timer.4 1 5 msg $Chan %nx The bottle has stopped at %Lander : $Nick must %command %lander %ny }
      if (%Lander = $Nick) { .timer.4 1 5 msg $Chan %nx The bottle has stopped at the $Nick who spinned the bottle!  $Nick must $Read(bottle.txt) themself! %ny }
      .timer.5 1 5 set %Spinning No
    }
    elseif ($exists($mircdir $+ bottle.txt) = $False) {
      Echo # %bx Sorry, but you need to create a file in $mircdir called 'bottle.txt' %by
      Run NotePad.exe
      Echo # %bx Type them in seperate lines, make sure you put it in the mIRC directory, named bottle. %by
    }
    if (%Command = $Null) {
      .set %command $Read(Bottle.txt)
    }
  }
}
Alias Spfontt {
  if (%Ttext != On) { set %Ttext On | echo -a Set spin the bottle text on! }
  elseif (%Ttext = On) { set %Ttext Off | echo -a Removed spin the bottle text! }
}
Menu Channel {
  Special Font:/spfontt
  -
  Set Topic: /sptopic
}
on 1:INPUT:*: {
  if (/ !isin $Left($1,1)) && (%TText = On) { msg $Active [ %nx ] $Strip($1-) [ %ny ] | halt }
}
Menu Nicklist {
  BottleKick "Kick + Why" { kick  # $$1 %bx $$?="Reason:" %by }
  BottleKickBan "Kick + Ban + Why" { .timer 1 2 ban $1 | kick  # $$1 %bx $$?="Reason:" %by }
}
Alias Sptopic { topic # %bx $$?="Topic:" %by }
